home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Demos / HeartQuest demo ƒ / ClutFade / Demo / Shell.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-07-15  |  1.6 KB  |  75 lines  |  [TEXT/KAHL]
  1. /* By Ingemar Ragnemalm, based on code by N. Jonas Englund. */
  2.  
  3. //=================================    INCLUDES ====================================
  4.  
  5. #include "shell.h"
  6. #include "fade.h"
  7.  
  8. //=================================    FUNCTIONS ===================================
  9.  
  10. void InitToolbox(void);
  11. void TestWindow(void);
  12.  
  13. /*********************************** main ***************************************/
  14. extern
  15. void main(void)
  16. {
  17.     InitToolbox();
  18.     TestWindow();    
  19. }
  20. /*** main ***/
  21.  
  22. /********************************** InitToolbox ********************************/
  23. static
  24. void InitToolbox(void)
  25. {
  26.     MaxApplZone();
  27.     MoreMasters();
  28. #ifdef THINK_C
  29.     InitGraf(&thePort);
  30. #else
  31.     InitGraf(&qd.thePort);
  32. #endif
  33.     InitFonts();
  34.     InitWindows();
  35.     InitMenus();
  36.     TEInit();
  37.     InitDialogs(nil);
  38.     InitCursor();
  39.     FlushEvents(everyEvent, 0);
  40. }
  41. /*** InitToolbox ***/
  42.  
  43. /********************************** TestWindow *********************************/
  44. static
  45. void TestWindow(void)
  46. {
  47.     DialogPtr    d;
  48.     GrafPtr        g;
  49.     short        hit;
  50.     RGBColor    fadeTo = {0xefff, 0x0000, 0xffff};
  51.  
  52.     // Fade to pink: {0xd000, 0x4000, 0x4000};
  53.     // Fade to green: {0x0000, 0xffff, 0x4000};
  54.     // Fade to white: {0xffff, 0xffff, 0xffff};
  55.  
  56.     FadeScreen(30, true, fadeTo);     //• Try fade speeds from
  57.  
  58.     GetPort(&g);
  59.     d = GetNewDialog(128, nil, (WindowPtr) -1L);
  60.     ShowWindow(d);
  61.     DrawDialog(d);
  62.     SetPort(d);
  63.     ValidRect(&d->portRect);
  64.  
  65.     FadeScreen(30, false, fadeTo);    //• 1 upward.
  66.     ModalDialog(nil, &hit);
  67.  
  68.     FadeScreen(30, true, fadeTo);     //• Try fade speeds from
  69.     SetPort(g);
  70.     DisposeDialog(d);
  71.     FadeScreen(30, false, fadeTo);    //• 1 upward.
  72. }
  73. /*** TestWindow ***/
  74.  
  75. //===================================== EOF =====================================